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1.0 Introduction 

The scheduling problem facing NASA MSFC Mission Planning is 
extremely difficult for several reasons. The most critical factor is the 
computational complexity involved in developing a schedule. The 
problem space is combinatorially explosive. The size of the search 
space is large along some dimensions and infinite along others. 
There can be infinite number of choices to assign activities, and a 
large number of choices of crew assignments to activities. 
Additionally, the goal of the scheduling process is to produce a “good” 
schedule. This is ill-specified and encounters a number of often 
conflicting requirements. These requirements can include efficient 
use of resources, no time or resource constraint violations, and 
maximum production during a specified time period. Interrelational 
requirements between activities, the performance placement of each 
of the activities, and resource usages can make constraint violations 
difficult to predict and avoid. 

It is because of these and other difficulties that many of the 
conventional operation research techniques are not feasible or 
inadequate to solve the problems by themselves. Therefore, the 
purpose of this research is to examine various artificial intelligence 
techniques to assist these conventional techniques or replace them 
entirely. 

In June 1988, the Mission Analysis Division of the Systems 
Analysis and Integration Laboratory of the Marshall Space Flight 
Center (MSFC) of NASA tasked UAH to study the mission planning 
activities and how artificial intelligence techniques may benefit these 
activities. The specific tasks to be performed were (1) identify 

mission planning applications for object-oriented programming and 
rule-based programming; (2) investigate interfacing AI dedicated 
hardware (Lisp machines) to VAX hardware; (3) demonstrate how 
Lisp may be called from within FORTRAN programs; (4) investigate 
and report on programming techniques used in some commercial AI 
shells, such as KEE; and (5) investigate and report on algorithmic 
methods to reduce complexity as related to AI techniques. The 
results of this study, the prototype computer software and their 
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operational instructions were reported to NASA MSFC in the first 
Interim Report and presented in the form of an oral presentation in 
November 1989. 

At the conclusion of this oral presentation and during 
subsequent meetings with the MSFC staff new goals were set for 
continuing research on the previously defined tasks. These new 
goals focused on two areas: software and technique. Specific 
modifications and enhancements to prototype resource allocation 
software were requested in order to increase its functionality and 
performance capabilities. Coupled with the modified software, new 
Frontier of Feasibility traversing techniques were to be examined. A 
description of each of the alterations and additions to the prototype 
software and differing techniques are detailed in the following 
sections of this paper. 
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2.0 Software Data Structure Conversion 


2.1 Task Statement 

The purpose of this research was to continue to examine the 
advantages and disadvantages of using object oriented programming 
techniques to assist in solving the scheduling/resource allocation 
problem that is particular to MSFC NASA Mission Planning. This is 
further targeted to the future problems associated with activity 
planning for the Space Station. 

In the first Interim Report (UAH Research Report JRC 90-07) a 
detail description was given on a prototype software system called 
the Two Pass - Multiple Resource Resource Allocation Program. 
Although this system was developed in Common Lisp on a Symbolics 
Lisp Machine, the full power of object oriented programming 
techniques had not been utilized. It was decided that this software 
should be modified in such a manner that the data could be 
represented in object form. 

2.2 Task Conditions 

The conditions of this task are that the prototype was 
developed on a Symbolics Lisp Machine and that the object-oriented 
paradigm (Flavors) that is presently supported by this platform was 
appropriate. As with the original prototype design, the system 
focused on time and resource constraints and excluded consideration 
of inter-experiment dependencies. 

Although the object-oriented programming (OOP) paradigm has 
been discussed as with all personnel involved in this current 
research effort, a general review of these principals may be 
beneficial. OOP has been steadily gaining acceptance as an 

alternative software design methodology, especially for large, 
distributed systems. OOP techniques have proven most useful in 
applications that can be visualized as a collection of objects of distinct 
classes, each with their own data and processing requirements, that 
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must collaborate for the system as a whole to function properly. As 
an analogy, consider a team of engineers working together to design 
a new car. Those responsible for the interior may be interested in 
ergonomic data for their work, whereas those designing the engine 
may be using fuel efficiency data, EPA requirements, and so on. But 
both groups must work together to decide, for instance, whether the 

engine will be in the front or the back. For this type of problem, 

then, each individual can operate with a large degree of autonomy, as 
long as they collaborate when necessary. Now imagine trying to 
specify an “algorithm” for designing a car -- step by step instructions 
explaining exactly what needs to be done and when. That sounds 
pretty difficult, but suppose we concentrate on the car first and think 
about its organization rather than that of the design process. We can 
easily break the car down into a hierarchy of subsystems (like 

maybe the fuel system, and below that the fuel injection and fuel 
storage subsystems, and so on), until the leaves of our hierarchical 
tree are individual parts, whose design we can specify. Now we have 
a tree containing not only structural information about the car, but 

also procedural information about designing it. We will have been 
given some design parameters describing, probably in general terms, 
what kind of car we should design, so now we need only fill those 
values in and filter them down through the tree, until a concrete 
design begins to take shape. So, in this case, it would seem easier to 
concentrate on the object first, rather than the process. 

In contrast to this problem, however, consider the task of 
building the car once it has been designed. The assembly line 
approach has proven to be the best solution here, since each process 
is so tightly bound to the output of the previous process and the 
input of the next process. In this analogy to conventional 
programming, the car being built is like a large data structure being 
passed to one processing unit after another, in sequence, until it is 
finished. It’s not difficult to write down an “algorithm” for making a 
car, so it would probably be better to concentrate on the process 
rather than the object. Unfortunately, most real-world problems, 
including the resource allocation problem, are not as well defined as 
an automobile assembly line. For these more interesting problems, it 
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has become clear that we need a new, more natural, way to think 
about writing programs. 

These examples explain why OOP makes it easier to 
conceptualize the automated resource allocation system, but there 
are many other advantages as well. Consider the problem of 
information presentation. We have said that it may be beneficial to 
present procedural information differently, depending on the user’s 
cognitive presentation biases. Remember that in OOP we construct a 
hierarchical tree containing not only structural information, but 
procedural information (ie., code) as well. So when we want to 
present a step in a procedure, for example, we simply activate the 
little piece of code, attached to that step, that tells us how it should 
be presented, given the current user’s preferences. This organization 
becomes particularly efficient when we consider that we may ask for 
a presentation of that step in hundreds of locations throughout the 
system. 

2.3 Task Approach 

The approach taken in this task was to create flavor objects 
that would represent the resource allocation data and modify the 
actual software system itself to access and utilize this new data 
structure. The data representation of both the resources and the 
activities (experiments) were converted from its original list 
structure to this object format. The resource object structure is 
shown in figure 1 and the activity object structure is shown in figure 
2. Appendix A contains the actual Lisp computer code (or Flavor 
definitions) for each of the object structures. 

As a consequence of the data structure change many of the 
data accessing functions had to be changed. In Lisp a list is similar to 
an ordered set in that each item (or atom) contained in that list 
occupies a particular position with in the list. However, accessing 
information from the list is very dependent on each piece of data 
being precisely in a specific position in the list. To retrieve the fifth 
data item, the software would be required to pass over the first four 
items until it arrived at the desired location. This is obviously not 
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the desired mechanism for data retrieval. It limits the ability of the 
system programmer to modify the data structure or the procedures 
the access the specific pieces of information. 

As stated earlier, using resource and activity objects allows for 
data abstraction and encapsulation. This means that the system 
designer can now freely modify procedures and specific data items. 
In the original prototype, in an attempt to improve on a ordinary list 
structure, a property list was utilized. This allowed the user to more 
freely access the information by providing some degree of 
abstraction. However, internally the system still was storing the 
information in list form. The conversion in the second prototype 

from this property list to flavor objects allowed complete 
encapsulation and departure from from the internal list structure. 


RESOURCE OBJECT STRUCTURE 

Resource 

- Name 

- Limit 

- Type 

- Priority 

- Weight-Factor 

- Constraint-Function 

- Hash-T able 


Figure 1 
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The resource objects are instances of the flavor resource which 
is the generalized description of a generic resource. The flavor 
structure provides slots called instance variables that can contain 
information about the flavor instances. Each individual resource is 
an individual flavor instance whose slots contain information that 
uniquely describes its properties and behavior. The instance 
variables for the resource objects are the resource name, limit, type, 
priority, weight-factor, constraint-function, and hash-table. A 
description of each of these instance variables is provide below. 

Name - The actual name of the resource (ie. Man-Power). 

Limit - The maximum available quantity of this resource 
at an instance of time. 

Type - Is the resource non-depletable, depletable, or 
replenishable. 

Priority - Used in the current maximization algorithm to 
order resources (ie. primary, secondary, etc...) 

Weight-Factor - Will be used in future implementation to 
arrive at better overall resource utilization. 

Constrain-Function - mathematical expression that 
describes the constraining factors for the resource. 

Hash-Table - contains a historical hash table that shows 
resource utilization as a function of time. 

Currently, the software system allocates the resources Power 
and Man-Power. However, there is no limitation on the number of 
resources that can be allocated. 
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ACTIVITY OBJECT STRUCTURE 

Activity 

- Name 

- Experiment-Number 

- Duration 

- Power-Required 

- Man-Power 

- Data-Rate 

- Minimum-Performances 

- Maximum-Performances 

- Scheduled-Performances 

- Highlighted 


Figure 2 

Activity objects, similar to the resource objects, are individual 
flavor instances of the flavor activity. They have their object 
definitions contained in instance variables. The activity object’s 
instance variables are the activity name, experiment-number, 
duration, power-required, man-power, data-rate, minimum- 
performances, maximum-performances, scheduled-performances, 
and highlighted. A description of each of these instance variables is 
provide below. 

Name - the name of the activity. 

Experiment-Number - An activity identification number 
(if specified) 

Duration - the time required to complete the activity. 

Power-Required - the instantaneous power requirements 
of the activity. 
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Man-Power - the instantaneous personnel requirements 
of the activity. 

Data-Rate - the instantaneous data production rate of the 
activity. 

Minimum-Performances - the requested minimum 
number of activity performances. 

Maximum-Performances - the requested upper limit of 
number of performances. 

Scheduled-Performances - the actual number of 
performances of the activity that have been 
scheduled. 

Highlighted - the current state of the the menu item, 
showing if this activity is currently selected. 

2.4 Task Results 

The data structure changes described in the preceding sections 
were performed on the prototype resource allocation software 
system. Additional testing is needed to determine the extent of any 
performance gains. Also, software procedural changes need to be 
implemented in the form of flavor methods instead of traditional 
function calls. This additional change will allow the flavor instance 
variables to be directly accessed by the procedural code used in the 
software system. 

The use of hash-tables as a means of storing the time history of 
the resource allocation process, as well as individual resource 
utilization, has proven to be an effective and easily manipulative 
means of storing this information. The graphics functions in the 
software simply traverses the time line and remove specific values 
from the tables. Therefore tabular and graphical representations of 
the results are made easier to obtain. 


3.0 Software Functionality Modific ations and Enhancements 


3.1 Task Statement 

The purpose of this research project was to continue the 
development of the resource allocation system prototype. After a 
performance review at the end of the first interim term, it was 
decided that it would be desirable to add additional capabilities to 
the prototype software. First, the general algorithm that was in use 
should be modified from a multiple performance allocation to a 
single step performances approach. Secondly, since the allocation 
results are distributed across a time line, it would be desirable to 
construct a mechanism that would allow the operator to interject at a 
specific point in time and make a change to the allocation. The 
system should then perform a re-allocation of the resources starting 
at that point on the time line. 

3.2 Task Conditions 

The prototype software resides on a Symbolics Lisp Machine. 
Any modifications to the software were designed solely for the use 
on this platform and may not easily be ported to other platforms. 
Also, the data structures of the software were pre-existing and were 
not modified in the modification process. 

3.3 Task Approach 

Although a general description of the resource allocation 
software system’s allocation algorithm is describe in detail in the 
previous Interim Report (UAH Research Report JRC 90-07), it may be 
beneficial to include a brief description of the original resource 
allocation algorithm. The original algorithm employed by the 
prototype system would scan the multitude of combinations of 
activities selecting a single combination that best utilized a primary 
resource. The system then immediately allocated the entire number 
of minimum requested performances (if possible) for each activity 



that was included in the selected combination of activity 
performances for that time slice. This therefore treated the 
minimum requested number of performances as one singular and 
continuous performance. The allocated activities were then removed 
from consideration in future allocation combinations during pass one 
of the system. This approach, although simple, demonstrated many 
short comings and was deemed too coarse. 

The modified approach reduced the allocation step size by only 
allocating a single performance of each of the activities in the 
selected combination instead of the original entire minimum number. 
Each of the activities minimum requested number of performances 
was then reduced by one. Unlike the original prototype, the activity 
remained in the pass one allocation process until it had exhausted its 
requested minimum number of performances instead of immediately 
being removed. 

In a similar manner pass two operations were changed. 
Although it may be less obvious, pass two attempted to allocate 
multiple performances of different activities when ever possible. 
Now single performances of each selected activity were performed. 

The backtracking capability was created to allow the operator 
to effect changes to the allocation process. As the system allocated 
the resources to the activities a rough schedule is produced. Often as 
the grouping of activities process is being performed, multiple groups 
of activities are found that have near equal overall resource 
utilization. Since the choice of a single group from a list of similar 
groupings is completely arbitrary, the computer would simply take 
the first member in the list. This selection was then placed on the 
agenda for allocation. Although in the immediate time frame the 

selection method seems just as valid as any other method for 
choosing a candidate from the group of possible candidates, the 
selection can cause major changes in future allocation groupings. 
Therefore it was deemed desirable to construct a mechanism that 
would allow some user control over the candidate selection process. 

The backtracking functions required access and control of three 
data histories. First, a running history of the actual groups of 
possible alternative allocation selections had to be constructed in 
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order for the software system to be able to show possible 
backtracking choices. Secondly, the resource utilization history for 
each of the resources needed resetting for future reallocation. And 
finally, the activity schedule had to cleared of future scheduled 
items. All of these data histories were in the form of hash-tables. 

The data structures were reset for downstream reallocation. 
Although each of the data structures were hash-tables that use the 
allocation time as their key words; the downstream resetting 
requirements were not the same for each table. For instance, it 
became necessary to swap the newly selected group for the previous 
group first. Then, the correct resource utilization and new time 
history could be calculated. All the downstream activities were then 
removed and their corresponding number of scheduled events 
reduced. The time history that was used as the key words to the 
hash-tables was deleted from the point in time ’of the backtracking. 
A new resource allocation process is then started from the point of 
backtracking. 

The backtracking process is initiated by selecting a mouse 
sensitive item from the display. This display shows the allocation 
time and the current items allocated at that time. It is the time item 
that is mouse sensitive. Selecting a time for backtracking causes a 
menu of group selections from which the user must select an 
alternative. The reallocation process then begins and the display is 
refreshed. The system is cyclic in that the user may backtrack as 
many times as is desired. However, the system is a two pass system. 
Once the results from pass one have been accepted, the user can only 
backtrack through pass two allocations. 

3.4 Task Results 

The software system was modified from a multiple allocation to 
a single allocation step process. The system, at least under limited 
evaluation, performs a better overall resource allocation based on 
resource utilization than the previous approach. However, this comes 
with a price. The system which was already under criticism for the 
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time requirements necessary for non-trival problems was slowed 
even more. The exact amount of this reduced allocation speed has 
not yet been quantified. This will magnify the necessity for 
evaluating new group selection techniques. 

The backtracking capabilities have been implemented in the 
system with good success. The user can modify the activity schedule 
and effect changes on the resulting overall resource allocation. 
Remember the software system is currently designed as a two pass 
system. As mentioned earlier each of the two passes are considered 
as being independent of the other for backtracking. Thus the effects 
of backtracking are confined to the current pass of the system 

Since the resetting process is relatively small when compared 
to the overall problem of resource allocation, the incremental time 
used in backtracking is not significant. However, in a dynamic 
environment such as Lisp, the released data or garbage as it is 
sometimes called can cause the system itself to slow. This effect can 
be seen if repeated backtracking is performed. If excessive amounts 
of backtracking and reallocation cycles have been performed the 
system's performance is substantially affected. 



4.0 Portability of Resource Allocation To A TI MicroExplorer 


4.1 Task Statement 

The purpose of this research was to investigate the 
performance of the resource allocation software on the TI 
MicroExplorer platform. At the interim review of the software 
prototype. It was determined that portability and varying platforms 
for the system should be investigated. The system was easily ported 
to a Maclvory system and performed comparable to the Symbolics 
Lisp Machines. Since the Mission Planning Group at MSFC had a TI 
MicroExplorer, it was decided that the software system would be 
ported to this platform and a performance evaluation performed. 

4.2 Task Conditions 

The development language of the TI MicroExplorer is Common 
Lisp. The ported software system therefor was limited to the domain 
of functionality of this platform. 

4.3 Task Approach 

Since the Symbolics Lisp machine was the original development 
platform for the Resource Allocation Software System, any functions 
that were utilized within the system that were specific to this 

platform had to be modified or replaced by functions that were 
compatible with the TI MicroExplorer. Although the TI 
MicroExplorer uses a Flavors System similar to that of the Symbolics, 
it is currently several generations behind in its development. This in 
most cases did not pose a tremendous problem. However, the 

windowing system employs a different type of flavor. There is no 
predefined, so called "dynamic", window that allows scrolling, 
graphics, etc... Therefore, a composite flavor that would cause the TI 
MicroExplorer windows to behave similarly to those on the Symbolics 
Lisp machines had to be constructed. 



Mouse sensitivity is another facility that the TI MicroExplorer 
does not easily provide. This causes problems in the Activity and 
Resource Editing Module of the software system since it relies so 
heavily on complicated procedures that are initiated via mouse 
gestures and selections. Since this is a non-essential portion of the 
software system this module was omitted from the initial 
implementation of the software on the TI platform. Also the 
backtracking capabilities while included in the software were 
inhibited from operation due to similar mouse sensitivity problems. 
Both of these modules of the software system will be added for this 
platform. 

4.4 Task Results 

The software has been ported to the TI MicroExplorer. 
Additions and modifications were produced that allow the system to 
function on this platform. The analysis of the performance of the 
overall Resource Allocation Software system remains incomplete at 
this time. Mouse sensitive parts of the system that were omitted in 
the initial implementation of the software system will be added. A 
complete transfer of all data files is needed and an evaluation of the 
systems performance on this platform conducted. These activities 
are proposed as part of a continuing research effort. 


5.0 Frontier of Feasibility Software System 

5.1 Task Statement 

Experimentation in space is rapidly becoming one of the most 
exciting areas in science. Experiments from such widely diverse 
areas as medicine and metallurgy are performed side-by-side 
onboard space-based experimentation platforms. The Space Shuttle 
is currently the workhorse of this effort, but NASA's Space Station 
Freedom will assume much of this task when it is constructed. 

Each experiment or activity to be performed onboard a platform 
has certain resource and time requirements. Since the platform has 
only a limited supply of resources available, these activities are in 
competition with one another. Determining which activities can be 
performed is a complex problem that due to its nature has multiple 
solutions. 

It is likely that multiple performances of a single experiment are 
desirable, therefore, each such experiment must be performed 
multiple times during the mission duration. One method for 
simplifying the solution set of this problem is to generate a number 
of possible solutions based solely on resource and time constraints 
for use with a scheduling program. It is therefore the purpose of this 
research to examine the techniques for arriving at theses possible 
solutions. 

5.2 Task Conditions 

The prototype software resides on a Symbolics Lisp Machine. 
Any modifications to the software were designed solely for the use 
on this platform and may not easily be ported to other platforms. 
The prospective of the system is to view the possible starting points 
of a scheduler without taking into consideration any intra-activity or 
temporal constraints. 



5.3 Task Approach 


The Frontier of Feasibility System is designed to generate "good" 
starting points for a scheduling program. This system is not a 
scheduler, but is instead a resource allocation program which 
operates at a very course level of granularity. A scheduling program 
is concerned with placing activities on a time line, while ensuring 
that no constraints are violated. The main thrust of a scheduling 
package is the ordering of the activities on the time line. The 
Frontier of Feasibility System does not attempt to establish a time 
line schedule, but instead, only attempts to generate starting points 
for a scheduling program by allocating the available resources. 

Activities 

Experimentation is not the only consumer of resources onboard a 
platform. Life support, instrumentation, and other onboard systems 
are also in competition for the available resources. For this reason, in 
this paper competitors for resources will be referred to as activities. 
Each activity is defined by its consumption of various resources, 
duration, and performance criteria. 

Activities are given an abbreviated name and an experiment 
number. Duration is perhaps one of the most important facts given 
in the activity description. It is assumed that two or more 
performances of a single activity cannot occur simultaneously. 
However, it is possible for several different activities to be operating 
at the same time, resources allowing. Therefore, by taking the 
mission duration and dividing it by the duration of a single 
performance of an activity, it is possible to arrive at a hard 
constraint on the maximum number of performances possible for an 
activity. 

The activity description also includes resource usage information. 
This lists the amount of each resource that will be required to 
perform that activity one time. It is assumed in the Frontier of 

Feasibility System that this resource usage is continuous throughout 
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the duration of the activity. This is not an accurate representation of 
reality, but the purpose of this system is to provide a good starting 
point for a scheduler, not a finished answer. 

The user also enters a minimum requested and maximum desired 
number of performances for each activity into the description. This 
provides the system with a minimum number of performances of 
each activity that must be scheduled to meet the user’s bottom line. 
Any remaining resources are then allocated among the activities. 
The maximum desired number of performances places an upper limit 
on the number of performances of an activity that will be scheduled. 
This prevents the system from allocating resources to useless activity 
repetition. The upper limit established by the user is verified by the 
system to ensure that it is feasible. 


( VCF (experiment-number (2)) 
(power-required (10)) 
(duration (1)) 

(performances (1)) 
(max-performances (4)) 
(scheduled-performances (0))) 


Figure 1. A representation of an activity as a Lisp list. 

Resources 

The resources available aboard the platform are each given an 
abbreviated name and an amount available. Resources can be 
classified into several different categories. Non-consumable 
resources are not depleted by use, and are available in a constant 
quantity for the duration of the mission. Consumable resources have 
an initial level which is depleted as activities are performed. 
Replenishable resources are those that can be temporarily depleted, 
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but which through processes onboard the platform, may be 
replenished during the mission. 

The current version of the Frontier of Feasibility System uses one 
resource during its search process. Versions currently in 
development examine the problem using multiple resources. 

Graphical Representation of Search Space 

The Frontier of Feasibility System is based around the idea of 
representing the resource allocation problem's possible solutions as a 
tree graph. The process of creating a feasible combination of activity 
performances can be easily demonstrated using a tree graph. A 

manager’s decisions about which activity to perform more times can 
be followed down a path on the tree. 

For instance, if the manager decided to add one performance to 
the right-most activity, the node created would be one further down 
the right-hand-side branch. From this new node, the manager will 
make another decision regarding which activity to increase next. 
This process is repeated until the manager is satisfied with the 
results. Therefore, we adopted this structure as a good reference 
frame when seeking ways to calculate a solution set more quickly. 

Im Structure 

Each node on the tree graph represents one possible combination 
of activity performances. An example root node would be ( 1 1 1 ), 
representing one performance of three different activities. The 
children of this node would be ( 1 1 2 ), ( 1 2 1 ), and (211). 
Each child represents its parent with an additional performance of 
one activity. Only certain activities can be modified on each branch. 
The first, left-most, branch allows the modification of all activities. 
On the other branches, only the activities to the right of the activity 
corresponding to the branch number can be modified. For instance, 
in a twelve activity problem, if you are looking at the fifth branch, 
only the fifth through twelfth activities can be modified. The first 
four activities remain at their minimum requested. 
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Figure 2. A three activity tree graph. 

When dealing with a large number of activities, each of which can 
be performed multiple times, the size of the tree becomes quite 
large. It is therefore necessary to devise methods for reducing the 
size of the search space. One of the simplest is to make the root node 
values equal to the minimum number of requested performances of 
each activity. This action can greatly reduce the size of the space 
that must be searched. Since each activity also has a maximum 
number of performances requested, it is possible to restrict the 
depth of the tree. 

A human manager makes decisions, in terms of the tree graph, by 
starting at the root node and moving down the tree from parent to 
child, until he can go no further due to constraints. A node to which 
no more performances of any activity can be added without violating 
a constraint is said to be a Frontier Node, commonly referred to as a 
leaf node. The Frontier Nodes fall along a barrier which we call the 
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Frontier of Feasibility. It is the nodes that fall along the Frontier that 
offer the best starting points for a scheduling program. 

Sorting the Activities 

It is important to realize that the ordering of the activities within 
the nodes affects the shape of the tree. Each activity has a range of 
possible performances from its minimum requested to its maximum 
desired. Typically, the activities with a large range use a small 
amount of resources, while those with a very narrow range use large 
quantities of resources. If the activities are sorted so that the largest 
range is on the left, and the smallest on the right, then the tree will 
be very wide. This is because each new performance of the first 
activity represents a new branch. If the activities are sorted in 
reverse order, from smallest to largest range, then the tree will be 
deeper and narrower. In this case, there will only be a few branches 
to the left, thereby restricting the width of the tree. 

Which sorting method is best is still being decided. Each method 
has its advantages and disadvantages. The second method narrows 
the width of the tree, and thereby the number of Frontier Nodes. But 
this method makes the calculations for trading between activities 
more cumbersome. Method one, although it has a larger Frontier, has 
an easily demonstrated process for handling trades. So, for the 
purposes of this paper, we will be discussing the problem in terms of 
the first method, largest to smallest range. 

State Space Search Methods 

There are many different search methods available which could 
be used to find the possible solutions to this problem. These are 
methods which have been developed over time to handle problems 
similar to the Space Station resource allocation problem. However, 
most of these methods were developed to seek an optimal solution, 
or a single answer. Since the purpose of the Frontier of Feasibility 
System is to generate several “good” starting points for a scheduler, 
many of these methods were ruled out. 
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Modified Breadth Search 


It was decided that none of the other regular search methods 
would complete the search in an acceptable length of time. The 
structure of the tree suggested a new search method. The Frontier 
Node of the right-most branch is easily calculated, since only the 
number of performances of the right-most activity can be changed. 
Simply, divide the resources remaining after all activities have been 
performed their minimum requested number of times, by the 
amount of resources necessary for the right-most activity. This 
calculation yields the number of performances which can be added to 
the minimum requested. By adding this number to the right-most 
minimum and combining this new total with the rest of the root 
node, we have calculated the right-most Frontier Node. 

Using this Frontier Node as a starting point, it is possible to cross 
the tree along the Frontier of Feasibility, thereby eliminating the 
need to search the tree in depth. As discussed earlier, the order in 
which the activities are sorted can greatly affect the search process. 
We have chosen to discuss the largest to smallest range sort method 
because it can be more clearly demonstrated in the context of this 
paper. Using this method, the first frontier node that we have just 
calculated has maximized the number of performances of the largest 
resource using activity. 

The Frontier search method is composed of six main steps: 

1. Examine the number of performances of each activity in the node, 
from left to right, for one which is performed more than the 
minimum required number of performances. This step begins its 
examination at the second node from the left, because of the way 
Step 5 operates. 

2. Reduce the current number of performances of that activity by 
one. 
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3. Reset all activities to the left of the activity found in Step 1, to 
their minimum required number of performances. 

4. Recalculate the available resources. 

5. Starting just left of the activity found in Step 1 and continuing to 
the left, increase the number of performances of each activity as 
much as possible with the available resources. Each new 
performance reduces the amount of resources available. 

6. When no more performances can be added, store the new Frontier 
Node and repeat the process. 


(iiii iB) 

(ill 103 ) 

(111 1I2J3 ) 

( 1 1 1 B 1 3 ) 


Figure 3. Example of the six stage process. 

The benefit of using the largest to smallest range sort method is 
that removing one performance of an activity in Step 3, guarantees 
at least one performance of another activity when executing Step 5. 
This method sorts the activities from smallest to largest resource 


26 


users and thereby ensures that enough resources are freed up to add 
one performance to the left. 

5.4 Task Results 

The six stage process describe above produces several hundred 
thousand solutions in a small problem. Almost all of these Frontier 
Nodes utilize from 95% to 100% of the available resources. There are 
several possible mechanisms under consideration to select only a 
small subset of these solutions. One of the most promising of these, 
reduces the size of the solution set by selecting a starting node 
further to the left in the tree. This eliminates all branches right of 
the start node from consideration. Random sampling is another 
method which could be used. The system would randomly, or at set 
intervals, store the node currently under consideration. This method 
would provide a smaller solution set, which still represented most of 
the branches. 

While the system can calculate new nodes fairly rapidly, storage 
of the growing solution set slows the systems performance to an 
unacceptable level. This problem can be bypassed in several ways, 
for instance, by only storing those solutions that use 100% of the 
available resources or only the first 10,000 solutions which are 
generated. 

From the generated solution set, the user must choose a node that 
represents a “good” starting point. We are currently working on an 
interface which will allow the user to review the solution set and 
examine a node in detail. The user would be able to modify the 
number of performances of any activity, in order to improve the 
“goodness” of the node. The combination of these two systems will 

provide the user with a powerful tool for generating rough solutions 
to the resource allocation problem. 
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AM)Y:>jsr>resource-alIocation>muItipIe-with-flavors>multiple-resource-flavors-and-v^r^ab|es.li 


Syntax: Common-Lisp; Package: USER; Base: 10; Mode: Lisp 


; ; ; ; ; ; Resource Allocation Flavors ;;;;;; 

(def flavor RESOURCE 
( (limit ni 1 ) 

(priority nil) 

(constraint-function nil) 

(hash-table nil) ) 

0 

: readable-instance-variables 
: writ able- instance -variables 
: ini table- instance -variables) 

(def flavor ENVIRONMENT 

((resources nil) 

(activities nil) 

(total-time nil) 

(expendables nil)) 

<) 

: readable-instance-variables 
: writable-instance -variables 
: ini table- instance-variables) 

(def flavor ACTIVITY 

( (duration nil) 

(performances nil) 

(max-per f ormance3 nil) 

( scheduled-per f ormances nil) 

(Const raint -function nil)) 

() 

: readable-instance -variables 
: wri table-inst a nee -variables 
: ini table- instance -variables) 

(def flavor SELECTION-MENU () 

( tv: drop- shadow -border s -mix in 
tv: multiple-menu) ) 

(def flavor SHAD OWED -TV- WINDOW () 

( tv : drop- shadow-border s-mixin 
dw : dynamic-window) ) 


; ; ; ; ; ; ; ; ; ; ; ; ; ; Special Flavor Function*; ; ; ; ; ; ; ; ; ; ; ; 

(defun revise-flavor-instances (flavor-name instance-variables) 

(let ((current (append ( fl avor : FLAVOR-ALL-I NS TANCE -VARIABLES 

(flavor: find-flavor flavor-name) ) ) ) 

(new (mapear "(lambda (x) (cond ( (listp x) (car x) ) (t x) ) ) instance-variables))) 
(cond ((and (= (length current) (1+ (length instance-variables))) 

(every ' (lambda (x) (member x current)) new}) 

nil) 

(t 

( flavor: remove- flavor flavor-name) 

(eval Mdefflavor , flavor-name 

, (append instance-variables 

' (Const raint-funct ion) ) 

() 

: readable-instance-variables 
: writ able-instance-vari ables 
: ini table- instance-variables) ) ) ) ) ) 

(defmacro with-modif ied-f lavor-definit ion (flavor-name instance-variables 

flavor-instances Sbody body) 

' (let ({flavor ( flavor : f i nd- fl avor f flavor-name) ) ) 

( revise-flavor-instances ( flavor-name , instance-variables) 

(loop for each in , flavor-instances 
do 

( flavor : t rans form-instance each flavor}) 

, @body) ) 

(defun supply-inst ance -variable s -wit h-va lues (variables-and-values instances) 

(cond ({and instances variables-and-values) 

(loop with flavor = ( flavor : flavor-name 
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{flavor: :% INSTANCE-FLAVOR 

(eval (caar variables-and-values) ) ) ) 
for (instance value) in variables-and-values 
as variable = ( read-f rom-st ring 

{format nil flavor instance)) 

do 

(eval ' (setf {, variable # {eval instance)) , value)))))) 

; ; ; ; ; ; ; ; ; ; ; ; ; ; Global Variables; ; ; ; ; ; ; ; ; ; ; ; 


(defvar 
(de fvar 
(defvar 
(defvar 
(defvar 
{de fvar 
(defvar 
{defvar 
(defvar 
{de fvar 
(de fvar 
(defvar 
{defvar 
(de fvar 
(defvar 
(defvar 
(de fvar 
(defvar 
(defvar 
(defvar 
(defvar 


♦activity*) 

♦activity-variables* nil) 

♦environment* ) 

♦frames*) ;; Loaded from data file. 

♦max-time* ) 

♦time-list*) 

♦lambda-1 i st s * ) 

♦paths*) 

♦original -screen- size* nil) 

*second-time* nil) 

♦current-file* "") 

♦Resource-File -Directory* "andy : > j sr> resour ce-al locat ion>multiple-data-f iles>") 

♦resources*) 

♦resource-variables* nil) 

♦resources -output * nil) 
scheduled- items ) 

♦maximizing- resource-list*) 

♦m&ximi zing-re source -posit ion*) 

♦graphical -output* nil) 

♦graphical -display* nil) 

♦resource-output-window* (tv : make-window ' dw : dynamic-window 

: 1 abel "Resource Allocation Window" 

:blinker-p nil)) 


(defvar *di splay-menu* { tv : make-window 

'selection-menu A 

: 1 abel ''Select Displayed Output" 

: default-character-3tyle ' { : fix : roman rlarge) 

: special-choices '({"Selection Complete" : funcall-wi th-sel f complete)))) 
(defvar * re source -menu -window* (tv: make-window ' dw : dynamic-window 

; i abe i "Experiment Data Editor Window" 

: blinker-p t) ) 

; (defvar *Data-choices-menu* (tv : make-window * tv imoment ary-menu 
; : borders 4 

; : label "Altamata Data File List")) 


(defvar *message-window* (tv :make-window ' dw: dynamic-window 

; :blinker-p nil 

:edges-from ' (300 300 850 400) 

: margin-components 

' { (dw :margin-scroll-bar :visibility :if-needed) 

(dw : margin-ragged-borders rthickness 4) 

(dw : margin-label 
: margin :bottom 

: string 'fctoasage Window (Press any *ey to EXIT)")))) 

(defvar *graphics -window* { tv: make-window ' dw : dynamic-window ORIGINAL PAGE 
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ANDY:>jsr>resource-allocation>muItiple-with-flavors>multiple-resources-with-flavorsD^Bd 


;;; Mode: LISP; Syntax: Common-lisp; Package: USER; Base: 10 

; ; ; ; ; ; ; ; ; ; ; Input and Variable Initializing Functions; ; ; ; ; ; ; ; 

(defun open-input -file () 

(let ((infile (dw:menu-cboose {get -dat a-f ile-1 ist ) 

: prompt "Data Fila I*iat"))) 

(cond (infile (load (string-append *Re»ource -File -Directory* infile) 

:verbose nil) 

(initial i ze-frames) 

(setq * current -file* infile))))) 

(defun initialize- frames () 

(loop for frame in *frames* 

collect (car frame) into names 

finally (setf (environment-activities *environment*) names))) 

{defun determine -maximizing- re source {) 

(setq *maximizing-reaource-list* (prioritize-resource-list ) 

*maximi zing-re source -posit ion* 

(loop for resource in *maximizing-resource-list* 

collecting {position resource *re source- variables* ) ) ) ) 

{defun reset -lambda- functions () 

(loop for (resource priority max-val lambda) in *lambda- lists* 
do 

(cond ( (and (boundp resource) (in3tancep (eval resource) ) ) 

(setf (resource-limit (eval resource)} max-val) 

(setf (resource-priority (eval resource) ) priority) 

(setf (resource-constraint-function (eval resource)) lambda)) 

(t 

(set resource (make-instance 'resource 

: limit max-val 
:priority priority 

: const raint-funct ion lambda)))))) 

(defun initializa-hash-tablas () 

(let ( (parameters 

(loop for resource-item-string in *raaourca«* 

as resource - (make-variable- from-st ring resource-item-string) 
collecting resource into var 

collecting (read- from-st ring (format nil "act ivity--a" resource)) 
collecting 0 into value 

finally (setq *r«aourcii-v*ritbl«** var 

*activity-variabla»* var2) 

(return (list (cons ' scheduled-i terns var) 

(append ' (nil nil) value}))))) 

(loop for resource in (car parameters) 
for val in (cadr parameters) 
do 

(cond ( (boundp-in-inst ance (eval resource) val) 

(clrhasb (resource-bash-table (eval resource)))) 

(t (setf ( resource-hasb-table (eval resource)) 

(make-bash-table) ) ) } 

(swaphash 0 val (resource-hash-table (eval resource) ) ) 

(swaphash ♦max-time* val (resource-hasb-table (eval resource)))))) 

; {defun initializa-markars-and-variablaa () 

; (loop for eac in *framaa* 

; as name = (car eac) 

; do 

; (loop for each in (cdr eac) 

; do 

; (zl:putprop name (caadr each) (car each)))) 

; (setq *tima-liat* (list 0 *max-tima*) ) ) 

(defun craata-ob jact-atructuraa {) 

(de f ine-environmental-st ructures) 

(loop for eac in *framas* 
as name = (car eac) 
do 

(loop for each in (cdr eac) 

append (list { read-f rom-st ring (format nil ":~a" (car each))) 

(caadr each) ) into var-list 
finally (set name (revise-flavor-instances 


into var2 
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(make-instance 'activity) 
var-list ) ) ) 


do 

(zlsputprop name (caadr each) (car each)))) 

(setq *time-list* (list 0 *max-ti me*)) 

(in it ialize-hash-tables) 

(revise-flavor-instances 'activity *r»aourc«-vtri»bl***) 
(re set -lambda- functions) 

(determine-maximizing-resource) ) 


(defun define-environraental-structures () 

(if (null *«nvironmant*) 

(setq *«nvironn»nt* (make-instance 'environment 

: total-time *max-time* ) ) ) ) 


;; Returns a sorted list based on highest priority resource 
;;in form of ' (expl exp2 exp3 ...) 

(defun build-list () 

(let ((1st (environment-activities *activity*) ) ) 

(loop for resource in (reverse *maximizing-resouroe-list*) 
as lst2 = (zl:sortcar (loop for exp in 1st 

collect (list (funcall resource exp) exp)) #'>) 
do 

(setq 1st (loop for each in lst2 

collecting (cadr each)))) 

1st) ) 

(defun prioritize-resource-list () 

(sort (remove 0 (copy-list *r® 80 urc«-vari*bl«**) :test #'= 

:key #' resource-priority ) 

#'> :key # ' resource-pri ority ) ) 

; ; ; ; ; ; ; ; ; ; ; ; ; ; Top Level Function* ; ; ; ; ; ; ; ; ; ; ; ; 

rrrrrrrrrrrrrtrrr MAIN PROGRAM/ ////////////// 

(defun Allocate-Resources () 

(time (Allocate-Resources-aux) 

(format t M -3%**** Program Timing ****-2%”))) 


(defun Allocate-Resources-aux () 

{cond {* second- time* t) 

(t (open-input-file) 

(setq * second-time* t))) 

(era at a- object- structures) 

(init ialize-markers-and-variables) 

(examine-data) 

( create- object -structures) 

(send *resource-output-window* : clear-history ) 

(send * re source -out put -window* : select) 

(let ({1st (build-list))) 

(schedule-pas3-one 1st) 

(display-pass t) 

(show-used) 

(format * re source -output -window* ,, ~3%~a" 

(catch 'resource (accept 'label-type : stream * resource -output —window* 

: prompt nil))) 

{schedule-pass-two 1st) 

(di splay-pass ) 

(show-used) ) 

; (send *graphics -window* : select) 

(format *resource-output -window* "~3%~a" 

(catch 'resource (accept ' label -type : stream *graphics-window* 

: prompt nil) ) ) 

(zl: readline *re source- output -window*) ) 


rirtrrrrrrrrt 


TOP LEVEL FUNCTIONS 


rrrrrrrrrrrr 


(Defun schedule-pass -one (nlst) 

(loop with 1st = (copy-list nlst) 

for (start interval -time) = (list 0 *max-time*) 
then ( f ind-new-parameters start) 
until (or {= start *max-time*) (null 1st)) 
as group = (find-max-path start (current-status start) 

(find-resource-candidates 1st interval -time start)) 
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do 

(format t " ~ ~ A -a " group start) 

(cond ( (atom (car group) ) ) 

(t 

(update-hash-tables start 

(loop for item in (car group) 

as performances = (activity-performances item) 
as duration = (activity-duration item) 
as time = (* performances duration) 
if (> time interval-time) 
do (setq time 

{* (setq performances 

(zlifix (/ interval-time duration))) 
duration) ) 

if (> performances 0) 

collect (list item time) into var 
finally (return var) 
do 

(setf (activity-scheduled-perf ormances item) 

{+ performances (acti vity-scheduled-per formances item) ) ) 
(setf (activity-performances item) 

(- (activity-performances item) ) ) 

(cond ( (<= (- (activity-performances item) performances) 0.) 
(setq 1st ( remove-experiment -f rom-schedule-li st 
item 1st)))))))))) 


{defun schedule-p&ss-two (nls t) 

(loop with 1st = (copy-list nlst) 

for (start interval-time) = (f ind-new-parameters) 
then { f ind-new-parameters start) 
for current -status = (current-status start) 
until {= start *max-tiroe*) 

as possible-choices * (non-scheduled 1st (gethash start scheduled-items) ) 
do 

; (format t "-3% start = -A -20t-'-a" start current-status) 

(loop with params = nil 

while interval -t ime 

while (Parameters-wi thin-range current-status) ;;Need exit condition here 
as group = (find-max-path start current-status 

( find -re source -candidates 

possible-choices interval-time start)) 
do 

; (format t "~%Interval time = -a -20t-a-4 Ot -a” interval -time current-status group) 

(cond ( (atom (car group) ) 

(cond ( {= ( + start interval-time) *max-time*) 

(setq interval-time nil)) 

(t 

(setq params { find-next-parameter current-status 

< + start interval-time) ) 
possible- choice s { remove -next-t i me -event s 

{+ start interval-time) possible-choices) ) 
(setq current-status (car param3) 

interval-time (- (cadr params) start ))))) 


(t 


(update-hash-tables start 

(loop for item in (car group) 

as duration = (activity-duration item) 

as performances - (zlifix {/ interval-time duration)) 

as time = (* performances duration) 

collect (list item time) into varl 

minimize time into var2 

finally (setq interval-time var2) 

(return varl) 


do 


(setf ( act ivi t y-scheduled-per formances item) 

( + performances (activity-scheduled-perf ormances item))) 
(setf (activity-performances item) 

(- (activity-performances item) performances) ) 

(setq possible-choices ( remove-experiment-f rom-schedule-list 

item possible-choices) ) ) ) 


(setq interval-time nil)))))) 


{defun complete (self) 

(send self ideactivate) ) 
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{defun display-pass ( Soptional {title nil)) 

(dw: : with-output-t runcation (*resouroe-output-window* ihorizontal t) 

(cond (title 

(format *r®aourca- output -window* "-2%-38t -v&esource Allocation Result s~34 % " 

♦Font* ) 

(cond {(null * res our c« a -output * ) 

(send *di splay-menu* : set-label "Select Displayed Output" ) 

(send * display -menu* ; 3et-i t em-1 i st *reaources*) 

(send * display -menu* : choose) 

{setq * r« aourcsi -output * 

(reverse (send *display-manu* : highlighted-values) ))) ) 

(format *resource-output -window* "-4% **** FIRST PASS RESULTS ****-2%")) 

(t 

(format *resource- output -window* "-4% **** SECOND PASS RESULTS ****"))) 

(select -graph! cal -display) 

(let ( (x-y-locat ions (Init ialize-Graph-inf ormat ion * graphical -output* ) ) 

(space 10) ) 

( show- scheduled) 

(loop for resource in * re source a -output* 

initially (space-over * re source -output -window* {+ 6 space) ) 
do 

(space-over * re source -output -window* space) 

(format * resource- output -window* "-'bea-S resource)) 

(loop for time in *time-list* 

for next-time in (cdr *time-list*) 
do 

(setq x-y-locat ions (display-output-sensitive time next-time x-y-locations 

: st ream * resource -output -window* ) ) 

(loop for variable in (make-variables * resources -output*) 
for header in * re source a -output* 
as width = (string-length header) 
for column first { + space {/ width 2,0) space) 
then ( + space (/ width 2.0) column) 
do 

(format * re source -out put -window* (format nil "---at" (zl:fix column))) 

(format * re source -out put -window* "-80a" (gethash time (eval variable))) 

(setq column (+ (/ width 2.0) column))))))) 

{defun display-output- sensitive (return time next-time x-y-locations fikey ( stream * resource -menu -window*) 

{ type ' label -type) ) 

(dw : with-output-as-present at i on (: single-box t 

: stream stream 
: dont-snapshot-variables t 
:type type 

robject (list time)) 

(print-it stream return time)) 

; (print-it *graphics-window* return time)) 

(if (and (not (equal *graphical -display* 'none)} x-y-locations) 

(setq x-y-locations (funcall * graph! cal -display* x-y-locations next-time))) 
x-y-locations) 

(defun print-it (stream return time) 

(format stream (format nil "~a-A” return time))) 

(defun make -variables (1st) 

(loop for string in 1st 

collect (make -variable- from- string string) ) ) 

(defun show-used () 

( format * resource-output -window* " ~3%~1 0TItem~20tRemaining~40tScheduled~% " ) 

(loop for item in (environment-activities * environment*) 
do 

(format * re source -out put -window* "~%-l 0T-“A~23t-a-43t-a" item (activity-performances item) 

(act i vity-scheduled-per f ormances item) ) ) ) 

rrrrrrrrrrfrrr SSCOIld P&SS FUHCbionS rrrrrrrrrrr 

(defun non-scheduled {1st used) 

(let ((possible 1st)) 

(loop for item in used 
do 

(setq possible (remove item possible :test #' equal ))) 
possible) ) 


r r t * r 


Common Pass Functions 
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(defun find-n«w -parameters (^optional { current nil)(params nil)) 

(let ((1st *time-list *) ) 

(cond ( (null current) 

(setq 1st (cons 0 1st))) 

(t 

(setq 1st (member current *tima-liat* :test #'- )))) 

(loop with start = (cadr 1st) 

with status = (if params params (current-status start)) 
for time in (cddr 1st) 

while (compare-each-time-status status time) 
finally (return (list start (if time (- time start) 

(- *max-time* (cadr 1st}))))))) 


(defun find-next -parameter ( current time) 

(let ((next (mapcar #' (lambda (x y) (if (> x y) x y) ) current 
(current-status time)))) 

(list next (cadr (member time *time-li*t*) ) ) ) ) 

(defun remove -next -time -events (time 1st) 

(loop for item in (gethash time scheduled-it ems) 
do 

(setq 1st (remove-experiment-from-schedule-list item 1st))) 

1st) 

(defun compare-each- time- status (status time) 

(loop for pos from 0 

for each in *maximi zing- resource -list* 

for location in *maximi zing-re source-position* 

always (<= (gethash time (eval each)) 

(nth location status) ) 
finally (return t))) 

(defun Parameters -within- range (current-status) 

(loop for each in *maximizing-reaource-list* 

for location in *maximizing-resource-position* 

always (> (resource-limit each) 

(nth location current-status)))) 

(defun update-Hash-tables (start 1st) 

(loop for (iteml duration) in 1st 

as end-time = {+ start duration) 

do 

(cond ((null (member end-time *time-list* :test #'=)) 

(loop for resource in (cons ' scheduled-items * resource-variable#*) 
do 

(swaphash end-time (Get -hash-value end-time resource nil) (eval resource) ) ) 
(setq *time-list* (sort (cons end-time (copy-list *time-liat*) ) #'<)))) 

(loop for time in (member start *time-list* ) 
until {- end-time time) 
do 

(swaphash time (append (Gethash time 'scheduled-items) (list iteml)) 
scheduled-items) 

(loop for resource in *re source -variables* 
for operation in *activity-variables* 

do 

(swaphash time (+ (Get-hash-value time (resource-hash-table resource) ) 

(funcall operation iteml)) (resource-bash-table resource) ))))) 

(defun Get-hash-value (time resource-table Soptional (not-new t) ) 

(let ((value (gethash time resource-table))) 

(cond (value value) 

(not-new nil) 

(t (gethash (loop with previous = 0 

for last-time in *time-list* 
until (>= last-time time) 
finally (return previous) 
do 

(setq previous last-time) ) 
resource-table) ) ) ) ) 

(defun find-resource-candidates (1st endpoint start) 

(loop for exp in (find-interval-candidates 1st endpoint) 

if (check-constraints (add-constraint-values (current-status start) exp)) 
collect exp into resource-candidate-list 
finally (return resource-candidate-list))) 


ORIGINAL PAGE IS 

OF POOR QUALITY 


ANDY:>jsr>resource-alIocation>multiple-with-flavors>multiple-resources-with-flavorsRagii® 


(defun find-interval -candidates (1st endpoint ) 

(loop for exp in 1st 

if (feasible-interval exp endpoint) 
collect exp into variable 
finally (return variable))) 

(defun feasible- interval (experiment endpoint) 

(< (get experiment 'duration ) endpoint)) 

(defun find-possible -downward-paths (sv 1st) 

(let* ( (top (car 1st) ) 

(bottom (edr 1st)) 

(val (add-constraint-values sv top))) 

(cond ((null (check-constraints val)) '({))) 

(bottom 

(loop for down-lst on (edr 1st) 

append (group-intermediate-lists 

top (find-possible-downward-paths val down-lst)) into var 
finally (return var))) 

(t (list 1st) ) ) ) ) 

{defun add-constraint -values (1st exp) 

(loop for resource in *reaource-variables* 
for value in 1st 
if (null value) 

do (setq value 0) 

collecting (+ value (get exp resource) ) ) ) 

(defun check-constraints (1st) 

(loop for resource in ♦resource-variables* 
for value in 1st 

always (apply (resource-constraint-function resource) (list value)) 
finally (return t))) 

(defun find-max-path (time sv 1st) 

(loop with max-paths — nil 
with max-value * 0 
for new-lst on 1st 

as paths = (find-possible-paths sv new-lst) 

as value = (get -time-interval -priority-value (get-group-values (car paths)) sv) 
finally (setq max-paths ( sort -max-pat hs max-paths)) 

(swaphash time max-paths *paths*) 

(return (car max-paths)) 
do 

(cond { (= max-value value) 

(setq max-paths (append max-paths paths))) 

{ (< max-value value) (setq max-paths paths 

max-value value) ) ) ) ) 

{defun sort -max -paths (paths) 

(let ( (1st (loop for path in paths 

collecting (list path (get -group-values path))))) 

(loop for pos in (reverse *maximi zing- resource -posit ion*) 
do 

(setq 1st (sort 1st #'> : key (lambda (x) (nth pos (cadr x) ) ) ) ) ) 

1st) ) 

{defun get-tima-interval-priority-value ( values 1st soptional (pos 0)) 

(cond {val ues 

(+ (nth (nth pos * maximizing- re source-posit ion*) values) 

(nth (nth pos *maximizing-resource-position*) 1st))) 

(t 0))) 

{defun group- intermediate- lists (item 1st) 

(loop for each in 1st 

collect (cons item each))) 

(defun remove -experiment- from- schedule-list (exp 1st) 

(remove exp (copy-list 1st) :test #' equal)) 

{defun find-possible-paths { val resource-candidates) 

(let ((1st (find-possible-downward-paths val resource-candidates))) 

(cond ((null 1st) (return-from find-possible-paths nil)) 

(t (get-maximized-sub-path 1st))))) 
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(defun get -maximized- sub-path (paths) 

(loop for resource in *maximizing-resource-list* 

for position in * maximizing- re source-posit ion* 

until (= (length paths) 1) 
do 

(setq paths 

(loop for 1st in paths 
with max-val = 0 
with max-lsts = nil 

as resource-value = (nth position (get-group-values 1st)) 
finally (return (reverse max-lsts)) 
do 

(cond ({> resource-value max-val) 

(setq max-val resource-value 
max-lsts (list 1st))) 

( (= resource-value max-val) 

(setq max-lsts (cons 1st max-lsts))))))) 

paths) 

(defun get -group- values (group) 

(loop for item in * activity-variables* 

collecting (loop for each in group 

summing (funcall item (eval each))))) 


(defun current- status (time) 

(loop for each in *resource-variables* 

as value = (gethash time (resource-hash-table (eval each) ) ) 
if (null value) 

do (setq value 0) 
collecting value) ) 

(defun show- scheduled () 

(format * resource- output -window* "~2% Time ~20tScheduled Event s-%") 

(loop for time in *time-list* 
do 

(format * re source -out put -window* ~A -20t-A” time (gethash time scheduled-i terns ) ) ) 

(format * re source- out put -window* "~2% M )) 

(defun show-resource (resource) 

(loop for time in *time-list* 
do 

(format t "-% -A -20t~A T ' time (gethash time resource)))) 


(defun make-mouse-sensitive-labels (return object & key ( stream *resource-menu-window* ) 

(type 'label-type)) 

(dw : with-output -as-present at ion (: single-box t 

: stream stream 
:type type 
:object object) 

(format stream (format nil n ~a~A" return (cadr object))))) 
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... Mode: LISP; Syntax: Common-lisp; Package: USER; Base: 10 -*- 

{defun op«n-input-fils () 

(let ({infile (dw:menu-choose (get-dat a-f ile-list ) 

: prompt "Dttl Flit List"))) 

(cond (infile (load (string-append *Rssourc«-Fils-Dirsatory* infile) 
iverbose nil) 

(init ialize- frames) 

(setq *curr«nt-fils* infile))))) 

(defun initialize- frames {) 

(zl:putprop 'list-of nil 'names) 

(loop for frame in *frama»* 
as name » (car frame) 
do 

(zl:putprop 'list-of (append (get 'list-of 'names) (list name)) 'names) )) 

(defun determine -maximizing- re source () 

(setq *maximi zing-resource -list* (prioritize-resource-list) 

* max I mi zing-resource -position* 

(loop for resource in *maxiraizing-reaource-list* 

collecting (position resource *re source -variable**) ) ) ) 


(defun reset -lambda- functions () 

(loop for (resource priority max-val lambda) in *lambda- lists* 
do 

(zl:putprop resource max-val 'resource-limit) 

(zl:putprop resource priority 'resource-priority) 

(zl:putprop resource lambda ' resource-const raint -function) ) ) 

(defun initialize-hash-tables () 

(let ( (parameters 

(loop for resource-item-string in *resources* 

as resource = (make-variable-f rom-st ring resource-item-string) 
collecting resource into var 
collecting 0 into value 

finally (setq *resourca-variablas* var) 

(return (list (append ' (*paths* scheduled-items) var) 
(append ' (nil nil) value)))))) 

(loop for resource in (car parameters) 
for val in (cadr parameters) 
do 

(cond { (boundp resource) 

(clrhash (eval resource) ) ) 

(t (set resource (make-hash-table}))) 

(swaphash 0 val (eval resource) ) 

(swaphash *max-time* val (eval resource)))) 

(loop for exp in (get 'list-of 'names ) 
do 

(zl:putprop exp nil 'when-scheduled))) 

(defun initislizs-mark«rs-snd-vsri*bl*s {) 

(loop for eac in *framea* 
as name = (car eac) 
do 

(loop for each in (cdr eac) 
do 

(zl:putprop name (caadr each) (car each)))) 

(setq *tims-list* (list 0 *max-tin»*) ) 

(initialize-hash-tables) 

(re set -lambda- functions) 

(det ermine-maxi mi zing- re source) ) 

; ; Returns a sorted list based on highest priority resource 
;;in form of ' (expl exp2 exp3 ...) 

(defun build- list () 

(let {(1st (get 'list-of 'names))) 

(loop for resource in (reverse *maximizing-r«souros-list* ) 
as 1 st 2 = (zlrsortcar (loop for exp in 1st 

collect (list (get exp resource) exp)) #'>) 
do 

(setq 1st (loop for each in lst2 

collecting (cadr each)))) 

1st) ) 

{defun Rig-to-subat-gibbys-f rontiT-nodea-sa -min i mum s {) 
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(with-open-file (stream *Gibbys-f rontier-node-f ile* 

: i f-does-not-exist nil) 


(cond (stream 

(loop for each in (read stream) 
for value in (read stream) 
do 

(zliputprop each value 'performances))) 

(t 

(format t "~3%~vGibby , I need a frontier node ! I I -s3%" 
(beep) 

' missing) ) ) ) 


(:eurex :italic :huge) ) 


(defun prioritix«-re»ource-li»t () 

(sort (remove 0 (copy-list * resource-variable**) :test #'= 
:key ' (lambda (x) (get x 'resource-priority))) 
#'> :key #' (lambda (x) (get x 'resource-priority)))) 

(defun perm&nently-store-pass-one-results () 

(loop for resource in * re source -variables* 
as results = (eval resource) 
do 

(zlrputprop resource results 'pass-one)) 

(loop for each in (get 'list-of 'names) 
do 

(zlrputprop each (get each 'when-scheduled) 'pass-one)) 
(setq *Pa»a-on«-tima-line* *time-list*) ) 

; ; ; ; ; ; ; ; ; ; ; ; ; ; Top Level Functions ;;;;;;;;;;;; 

; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ;maxn program; ; ; ; ; ; ; ; ; ; ; ; ; ; ; 


(defun Allocate-Reaources () 

(time (Allocate-Resources-aux) 

(format t ”- 3 %**** Program Timing ****~2%") ) ) 


(defun Allocate-Resources-aux (&key (Gibby nil)) 

(cond (* second- time* t) 

(t (open-input-file) 

(setq * second- time* t))) 

( in it i ali ze-markers-and-var tables) 

(if (and gibby (Rig-t o-subst-gibbys-front ier-nodes-as-minimums) ) 

(return-from Allocate-Resources-aux "Program Terminated Due to File-Not -Found") ) 
(examine-data) 

(let ((1st (build-list))) 

(send *resource-output-window* : clear-hi story ) 

(send *resource-output-window* : select) 

(cont inue-al location-pass-one 1st) 

(permanently-st or e-pass-one -re suit s) 

(cont inue-allocation-pass-two 1st) ) ) 

(defun continue-allocation-pass-one (1st) 

(schedule-pass-one 1st) 

(display-pass t) 

( show-used) 

(place-exit-button "Continue to Second Pass") 

(proceed 'continue-allocation-pass-one) ) 

(defun continue-allocation-pasa-two (l3t) 

(schedule-pass-two 1st) 

(display-pass) 

{ show-used) 

(place-exit-button "Terminate Program") 

(proceed ' cont inue-al location-pass-two) ) 

rrrrrwrrrrrrr B®C)C Tracking CapabilltiaS rrrrrr/rrrrrr 

(defun Proceed (function) 

(let ( (response 

(car (catch 'resource (accept 'label-type : stream *r«»ourc«- output -window* 

: prompt nil))))) 


(cond ( (numberp response) 

(backtrack function response)) 
{(equal response 'proceed))))) 
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(defun backtrack (function time-slot) 

(let ((choices (gethash time-slot *paths*) ) ) 

(loop while 

(if (> (length choices) 1) 

(remove-and-restart function time-slot choices) 

{ send-message-to-user 

(format nil "The only allocation selection given for 


up" 


time-slot) ) ) ) ) ) 


•'-a is the currently~%allocated gro 


(defun remove-and-restart (func time choices) 

(loop as selection = (get-option-list 

(format nil "Select Alternate Activity Schedule at Time 
(append (3t ring-li st s (cdr choices)) 

' ("Do Not Change Current Activity Schedule") ) ) 


when selection 
do 


(cond ((listp (read-f rom-string selection)) 

(reset-data-st ructures func time choices selection) 
(funcall func time)) 


(t 

(return-from remove-and-restart t))))) 


time) 


(defun reset -data- *t ructures (func time choices selection) 

(let* ((choice (read-from-st ring selection)) 

(common (intersection choice (car choices) ) ) 

(new (intersection common choice :test # f (lambda (x y) (not (eql x y) ) ) ) ) 

(old (intersection common (car choices) :test #' (lambda (x y) (not (eql x y) ) ) ) ) 
(kill-time (cdr (member time *time-list*) ) ) ) 

(loop for exp in (get 'list-of 'names) 

as scheduled = (get exp ' scheduled-perf ormances) 
as perfs = (get exp 'performances) 
as times - (get exp 'when-scheduled) 
do 

(loop for eac in times 

until (<= eac time) 
counting t into number 
finally 

(zl:putprop exp (subseq times (1- number)) 'when-scheduled) 

(zl:putprop exp (- scheduled number) ' scheduled-perf ormances) 

(zl:putprop exp (+ perf3 number) 'performances))) 

(loop for resources in * re source -variables* 
as table = (eval resources) 
do 

(Remove-hash-entries-with-times-greater-than table time)))) 

(defun Remove -ha sh-entrie a -with- time a -greater- than (table start-time) 

(maphash '(lambda (time value) 

(if (> time , start-time) 

(remhash time , table))) 

table) ) 


(defun string-lists (1st) 

(mapcar ' (lambda (x) (format nil "-a" x) ) 1st)) 

(defun Place-exit -button (message) 

(format *resource-out put -window* "~2%-20t" ) 

(dw : with-output -as-present at ion (: single-box t 

: stream * re source -output -window* 

: type ' label -type 
:object 'proceed) 

(surrounding-output-with-border (* re source -output -window* : 3hape :oval 

: filled t 
: move-cursor nil) 

(format * resource -output -window* message)))) 


TOP LEVEL FUNCTIONS ; ; ; ; ; ; ; ; ; ; ; ; 


(Defun schedule-pass-one (nist &key (backtrack-t ime nil) ) 

(loop with 1st * (copy-list nlst) 

for (start interval-time) = (if backtrack-time 

{ f ind-new-parameter s backtrack-time) 
(list 0 * max- time*) ) 
then ( f ind-new-parameters start) 
until (or (= start * max -time*) 

(null 1st ) ) 
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> 


as possible-choices - (non-scheduled 1st (gethash start scheduled-items) ) 
as group = (find-max-path start (current-status start) 

( find- re source-candidates 

possible-choices interval-time start)) 
do 

(format t "~%~A -a " group start) 

(cond ( (atom (car group) ) ) 

(t 

(update-hash-tables 3tart 

(loop for item in (car group) 

as performances = (get item 'performances) 
as time = (get item 'duration) 
collect (list item time) into var 
finally (return var) 
do 

(zl:putprop item (cons start (get item 'when-scheduled)) 'when-scheduled 

(zl:putprop item (+ 1 (get item ' scheduled-perf ormances ) ) 

' scheduled-perf ormances) 

(zlrputprop item {- performances 1) 

' performances) 

(cond ( (<= performances 1.) 

(setq 1st (remove-experiment-from-schedule-li st 
item 1st)))))))))) 


(defun schedule-pass -two (nlst) 

(loop with 1st = (copy-list nlst) 

for (start interval-time) « (f ind-new-parameters) 
then ( f ind-new-parameters start) 
for current -status * (current-status start) 
until (= start *max-time*) 

as possible-choices = (non-scheduled 1st (gethash start scheduled-items) ) 
do 

; (format t "-3% start = -A -20t-a” start current-status) 

(loop with params = nil 

while interval -t ime 

while (Parameters-wi thin-range current -status) ;;Need exit condition here 
as group = (find-max-path start current -status 

(find-re source -candidate s 

possible-choices interval-time start)) 
do 

; (format t ”-%Interval time = -a ~20t~a~40t ~a" interval-time current-status group) 

(cond ( (atom (car group) ) 

(cond ( (= { + start interval-time) *max-time*) 

(3etq interval-time nil)) 

(t 

(setq params ( find-next -parameter current-status 

{ + start interval-time) ) 
possible -choices ( remove -next -t ime -event s 

(+ start interval-time) possible-choices)) 
(setq current-status (car params) 

interval-time {- (cadr params) start ))))) 


(t 

(updat e-hash-t ables start 

(loop for item in (car group) 

as duration = (get item 'duration) 

as performances = (zlsfix (/ interval-time duration)) 

as time = {* performances duration) 

collect (list item time) into varl 

minimize time into var2 

finally (setq interval-time var2) 

(return varl) 


do 

(zl:putprop item (+ performances 

(get item ' scheduled-perf ormances ) ) 

' scheduled-performances) 

(zl:putprop item (- (get item 'performances) 
performances) 

' performances) 

{setq possible-choices (remove-experiment-f rom-schedule-1 i 3t 

item possible-choices) ) ) ) 


(setq interval-time nil)))))) 


(defun complete (self) 

(send self : deactivate) ) 
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(defun display-pass (&optional { title nil)) 

(dw: : with-output-truncation (* re s our oe- output -window* :horizontal t) 

(cond (title 

(format * resource- output -window* "^2%~38t-vKje30urce Allocation Re suits -'-34%" 

*Font* ) 


(cond ((null * re source .-output*) . , , A . , 

(send *display-menu* : set-label "Select DlSpIayeCI Output" ) 
(send *di splay -menu* : set-item-li st *resources*) 

(send * display -menu* : choose) 

( setq * re sources -output* 

(reverse (send *di splay -menu* : highl ighted-values) ) ) ) ) 
(format * re source -output -window* "~4% **** FIRST PASS RESULTS ****-2%")) 


(t 

(format * re source- output -window* "- 4 % **** SECOND PASS RESULTS ****”))) 

(select -graphical -display) 

(let ( (x-y-locat i ons (Init i al ize-Graph-inf ormat ion *graphi cal -output * ) ) 

(space 10) ) 

(show- scheduled) 

(loop for resource in * re sources -output* 

initially (space-over * re source -output -window* (+ 6 space)) 
do 

(space-over * re source -output -window* 3pace) 

(format *re source -output -window* " ~ ' bea ~C> resource)) 

(loop for time in *time-list* 

for next-time in (cdr *time-list*) 
do 

(setq x-y-locat ions (display-output-sensitive time next-time x-y-locat ions 

: stream *resource-output -window*) ) 
(loop for variable in (make-variables * resources -output*) 
for header in * re sources -output* 
as width = (string-length header) 
for column first (+ space (/ width 2.0) space) 
then (+ space (/ width 2.0) column) 


do 

(format *re source -out put -window* (format nil "---at" (zl:fix column))) 
(format *re source -output -window* "~80a" (getbash time (eval variable))) 
(setq column ( + (/ width 2.0) column))))))) 


(defun display- output -sensitive (return time next-time x-y-locations 

&key (stream * re* ource -menu-window* ) 

(type ' label -type) ) 

(dw: with-output-as-presentation (: single-box t 

: stream stream 
: dont-snapshot-variables t 
:type type 
robject (list time)) 

(print-it stream return time) ) 

; (print-it *graphics-window* return time) ) 

(if (and (not (equal * graphic si -display* 'none)) x-y-locations) 

(setq x-y-locations (funcall * graphical -display* x-y-locations next-time) ) ) 
x-y-locations) 


(defun print-it (stream return time) 

(format stream (format nil "-a-A" return time))) 


(defun make -variables (1st) 

(loop for string in 1st 

collect (make-variable- from- string string) ) ) 


(defun show-used () 

( format * re source -output -window* ** -3 %~10 Tit em~20t Remaining- 4 OtScheduled~% M ) 

(loop for item in (get 'list-of 'names) 
do 

(format * re source -out put -window* ” — %~10T~A-“23t — a-43t^a" item (get item 'performances) 
(get item ' scheduled-perf ormances) ) ) ) 


rrrrrrrrrr 


Second Pass Functions 


rftrtfttftt 


(defun non-scheduled ( 1st used) 

(let {(possible 1st)} 

(loop for item in used 
do 

(setq possible (remove item possible stest f'equal )}) 
possible) ) 
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; ; ; ; ; ; ; ; ; ; ; ; ; ; Common Pass Function# 


{defun find-new -parameter* (fioptional (current nil) (params nil)) 

(let ( (1st *time-list*} ) 

(cond ( (null current) 

(setq 1st (cons 0 1st))) 

(t 

(setq 1st (member current *time-list* :test #'= )))) 

(loop with start = (cadr 1st) 

with status = (if params params (current-status start)) 
for time in (cddr 1st) 

while (compare-each-time-status status time) 
finally (return (list start (if time (- time start) 

(- *max-time* (cadr 1st)))))))) 


{defun find-next -parameter {current time) 

(let ((next (mapcar #' (lambda (x y) (if (> x y) x y) ) current 
(current-status time) ) ) ) 

(list next (cadr (member time *time-list*) ) ) ) ) 

{defun remove -next -time -event a (time 1st) 

(loop for item in (gethash time scheduled-i tems) 
do 

(setq 1st (remove-experiment-from-schedule-list item 1st))) 

1st) 

(defun compare-each-time- status (status time) 

(loop for pos from 0 

for each in *maximizing-resouroe-li*t* 

for location in *maximi zing-re source-posit ion* 

always (<= (gethash time (eval each) ) 

(nth location status) ) 
finally (return t))) 

{defun Parameters-within-range (current-status) 

(loop for each in *maximizing-resource-liat* 

for location in *maximizing-resource-position* 

always (> (get each Resource-limit) 

(nth location current-status)))) 

{defun update -Hash -tables (start 1st) 

(loop for (iteml duration) in 1st 

as end-time = ( + start duration) 

do 

(cond {(null (member end-time *time-liat* :test #'=)) 

(loop for resource in (cons ' scheduled-items * resource -variables*) 
do 

(swaphash end-time (Get-hash-value end-time resource nil) (eval resource) ) ) 
(setq *time-list* (sort (cons end-time (copy-list *time-list*) ) #'<)))) 

(loop for time in (member start *time-list*) 
until {= end-time time) 
do 

(swaphash time (append (Gethash time scheduled-items) (list iteml)) 
scheduled-items) 

(loop for resource in *resource-variables* 
do 

(swaphash time ( + (Get -hash-value time resource) 

(get iteml resource)) (eval resource)))))) 

(defun Get -hash -value (time resource fioptional (not-new t)) 

(let ((value (gethash time (eval resource)))} 

(cond (value value) 

(not-new nil) 

(t (gethash (loop with previous = 0 

for last-time in *time-list* 
until (>= last-time time) 
finally (return previous) 
do 

(setq previous last-time)) (eval resource}))))) 

(defun find- re source -candidates {1st endpoint start) 

(loop for exp in (find-interval-candidates 1st endpoint) 

if (check-constraints { add-const raint-values (current-status start) exp) ) 
collect exp into resource-candidate-list 
finally (return resource-candidate-list))) 
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{defun find-interval -candidates ( 1st endpoint) 

(loop for exp in 1st 

if (feasible-interval exp endpoint) 
collect exp into variable 
finally (return variable))) 

(defun feasible- interval (experiment endpoint) 

{< (get experiment 'duration ) endpoint)) 

(defun find-possible -downward-paths (sv 1st) 

(let* ((top (car 1st)) 

(bottom (cdr 1st)) 

(val (add-constraint-values sv top))) 

(cond {{null (check-constraints val)) '(())) 

(bottom 

(loop for down-lst on (cdr 1st) 

append (group-intermediate-lists 

top (find-possible-downward-paths val down-lst)) into var 
finally (return var))) 

(t (list 1st) ) ) ) ) 

{defun add-conatraint -values (1st exp) 

(loop for resource in *resource-variables* 
for value in 1st 
if (null value) 

do (setq value 0) 

collecting (+ value (get exp resource)))) 

(defun check- constraint s (1st) 

(loop for resource in *resource-variables* 
for value in 1st 

always (apply (get resource ' resource-const raint-function) (list value)) 
finally (return t))) 

{defun find-max-path (time sv 1st) 

(loop with max-paths — nil 
with max-value = 0 
for new-lst on 1st 

as paths = {find-possible-paths sv new-lst) 

as value = (get-time-interval-priority-value {get -group-values (car paths) ) sv) 
finally (setq max-paths ( sort -max-paths max-paths)) 

( Set -back- 1 racking-paths 

time (gethash time scheduled-i terns ) max-paths) 

(return (car max-paths)) 
do 

(cond ( (= max-value value) 

(setq max-paths (append max-paths paths))) 

( (< max-value value) 

(setq max-paths paths 

max-value value) ) ) ) ) 

(defun Set -back-tracking-paths (time prefix suffix) 

(swaphash time 

( remove-duplicates 

(loop for (eac rst) in suffix 

collect (append prefix eac)) 

: test # ' equal ) 

*paths* ) ) 

(defun sort -max -paths (paths) 

(let ( (1st (loop for path in paths 

collecting (list path (get -group-values path))))) 

(loop for pos in (reverse *maximi zing-resource-position* ) 
do 

(setq 1st (sort 1st #'> :key (lambda (x) (nth pos (cadr x) ) ) ) ) ) 

1st) ) 

(defun get-time-interval-priority-value { values 1st &optional (pos 0)) 

(cond ( values 

{+ (nth (nth pos *maximizing-resource-position*) values) 

(nth (nth pos *maximiz ing-re source-position* ) 1st))) 

<t 0))) 

{defun group-intermediate -lists (item 1st) 

(loop for each in 1st 

collect (cons item each))) 
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(defun remove-experiment -from- schedule -list (exp 1st) 

(remove exp (copy-list 1st) :test t'equal)) 

(defun find-possible-paths (val resource-candidates) 

(let ((1st (find-possible-downward-paths val resource-candidates))) 
(cond ((null 1st) (return-from find-possible-paths nil)) 

(t (get-maximized-sub-path 1st))))) 


(defun get-maximized-sub-path (paths) 

(loop for resource in *maximizing-resource-list* 

for position in *maximizing-resource-position* 

until (= (length paths) 1) 
do 

(setq paths 

(loop for 1st in paths 
with max-val = 0 
with max-lsts = nil 

as resource-value = (nth position (get-group-values 1st)) 
finally (return (reverse max-lsts)) 
do 

(cond ((> resource-value max-val) 

(3etq max-val resource-value 
max-lsts (list 1st))) 

( (= resource-value max-val) 

(setq max-lsts (cons 1st max-lsts))))))) 

paths) 

(defun get -group- values (group) 

(loop for item in *resource-variables* 

collecting (loop for each in group 

summing (get each item) ) ) ) 


(defun current -at atus (time) 

(loop for each in * resource-variables* 

as value = (gethash time (eval each)) 
collecting (if value value 0))) 

(defun show- scheduled {) 

(format * resource- out put -window* "~2% Time -20tScheduled Evente-%”) 

(loop for time in *time-list* 
do 

(format * re source -output -window* "-% -A ~20t~A" time (gethash time scheduled-items) ) ) 
(format *re*ource-output -window* *'-2%")) 

(defun show-resource (resource) 

(loop for time in *time-list* 
do 

(format t "~% -A -20t~A" time (gethash time resource)))) 


; (defun make -mouse-sensitive -labels (return object &key (stream * re source -menu -wi ndow* ) 
; (type ' label -type) ) 

; (dw: with-output-as-presentation (: single-box t 
; : stream stream 

; :type type 

; :object object) 

; (format stream (format nil ”~a~A" return (cadr object))))) 
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... Syntax: Common-Lisp; Package: USER; Base: 10; Mode: LISP -*- 

(defvar *Resource-File -Directory* "andy :>jsr>resource-allocati on>mul ti pie-data- fi les> " ) 

(defvar *frames*) 

(defvar *max- re source -are a* 0) 

(defvar *curr«ntly-uaed* 0) 

(defvar *curr«nt -file* nil) 

(defvar *experiments* ) 

(defvar *max- re source -a re a* 58000000) 

(defvar *Not-Previously-Notified* t) 

(defvar *mesaage-window* { tv : make-window ' dw : dynami c-window 

; :blinker-p nil 

: edges-f rom ' (300 300 850 400) 

:more-p nil 
: margin- components 

' ( (dw : margin-scrol 1 -bar rvisibility :if-needed) 

(dw : margin- ragged-borders rthickness 4) 

(dw : margin- 1 abel 
:margin :bottom 

: string 'Message Window (Press any key to EXIT)")))) 

(defvar *interf ace-window* ( tvrmake-window ' dw : dynamic-window) ) 


(defflavor activity 
(Name 

Experiment -Number 
Durat i on 
Power-Required 
Man-Power 
Dat a-Rate 
Performances 
Minimum-Performances 
Maximum-Performances 
Scheduled-Per forma nee s 
Presentation 
(Highlighted nil) ) 

(> 

(:conc-name "") 

: init able-i nst ance-vari ables 
: readable-instance-variables 
: writable-instance -variables) 

(defun set -up-objects () 

; (setq *max-re source -area* (* *max-time* *max-r«source*) ) 

(loop for each in *frames* 
as name = (car each) 
collecting name into name-list 
as 1st = (loop for next in (edr each) 

' collecting (read- f rom- st ring (format nil " ;~a" (car next))) into args 

collecting (caadr next) into args 

finally (return (append (list :name (format nil "-a" name)) args))) 
finally (setq *Experiments* name-list) 
do 

(set name (apply #' make-instance (cons 'activity 1st))) 

(set-minimum (eval name))) 

(calculate-area-used) ) 

(defmethod (set-minimum activity) {) 

(setq Minimum-performances Performances) ) 

{defun restart () 

(setq * current -file* nil *currently-used* 0 * used- 1 st *• nil ij 1)) 

(defun calculate-area-used {) 

(setq *currently-used* 

(loop for name in * experiments* 

as duration = (duration (eval name)) 
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as power = {power-required (eval name) ) 
as perfs = (performances {eval name) ) 
summing (* duration power perfs) into tot-area 
finally (return tot-area)))} 

(defun make-window-layout {) 

(let* ((space 10)) 

(format *interface-window* "~%") 

(loop for exp-lst in (subgroup-list Experiments* 12) 
counting t into row 

collecting (loop for exp in exp-lst 

counting t into column-number 
as column = {* 10 column-number) 

collect (list exp row column-number) into headings 
finally (format *interface-window* ”~%”) 

(return headings) 
do 

(format *interf ace-window* (format nil "---at-a" (zlifix column) exp)) ) into var 
do 

(loop for exp in exp-lst 

counting t into col-num 
as col = (* 10 col-num) 

do 

(place-variable col 'performances exp)) 

(format *interf ace-window* ”~2%")))) 

; ; This defines the item presentation type and documentation line display 

(define-present at ion-type resource-type () 

:no-deftype t 

rparser {(stream) (loop do (dw : read-char-for-accept stream))) 

:printer { (object stream) 

(format stream ’’the resource -A" (car object)))) 

;;This is what is done when the item is selected 

(define-present at ion -action choose-type 
(resource -type t 
:gesture :left 
: context-independent t 
: document at ion ’’Change this value”) 

(resource) 

(throw 'resource 

(list resource (presentation (eval (caar resource) ) ) ) ) ) 

;;This function assists in correct column spacing 
(defun place-variable ( column variable exp) 

(format *interf ace-window* (format nil (zl:fix column))) 

{ forma t-item-mouse-sensit ive *interf ace-window* (funcall variable (eval exp)) 

(list (list exp variable) 

(multiple-value-bind (a b) 

(send *interf ace-window* ; read-cu r sorpos ) 

(list a b) ) ) ) ) 

; ; This function prints the item to the screen with mouse sensitivity 

(defun format -item-mouse-sensitive (stream incoming-item descriptors) 

; (if (> ij 172) (dbg : dbg) (setq ij (+ 1 i j > ) > 

(let* ( (object (eval (caar descriptors) ) ) 

(items (veri fy-value-range object Incowing-item )) 

(font (car items)) 

(item (cadr items))) 

(eval '{setf , (list (cadar descriptors) object) , item) ) 

(send stream : set-cursorpos (caadr descriptors) (cadadr descriptors)) 

(clearspace stream) 

(setf (presentation object) 

(dw : wi th-out put-as-presentat ion (:single-box t 

: stream stream 
:type 'resource-type 
zobject descriptors) 

(send stream : set-cursorpos (caadr descriptors) (cadadr descriptors)) 

(format stream "-vGa-f) font item))))) 

(defmethod (veri fy-value-range activity) (item) 

; (if (> i j 172) (dbgzdbg) ) 

(let* ({font ' (:fix : roman znormal)) 

(upper maximum-performances) 

(lower minimum-performances) ;; (zlzfix (+ (* 2/3 upper) .9))) 

(state nil) 
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(available {- *max-ra3ourc«-ar«a* *curr«ntly-usod*} ) 

(increment (zlifix (/ available (if (> power-required 0) 

{* duration power-required) (abs available))))) 

(resource-limit ( + performances 

(if (> increment 0) increment 0)))) 

; (dbg: dbg) 

(cond ( (and (> item upper) 

(>= resource-limit upper) ) 

(setq font ' (:fix :bold inormal) 
state ' upper) ) 

( (< item lower) 

(setq font ' (:fix ritalic inormal) 
state ' lower) ) 

{(and (> item resource-limit) 

(> upper resource-limit) ) 

(setq font ' (:fix : roman inormal) 
state 'resource-limit))) 

(case state 

(upper (setq font ' ( : f ix :bold inormal)) 

( send-message-to-user 

(format nil "The value you entered (~a) for the number of- 

-^Performances of -a is above the maximum allowed of ~A-2%- 
The maximum value will be used." item name upper)) 

(setq item upper)) 

(lower (setq font ' (:fix litalic inormal)) 

{ send -me s sage-t o-u ser 

(format nil "The value you entered (-a) for the number of- 

~%Per formances of -a is below the minimum allowed of -A-2%- 
The minimum value will be used." item name lower)) 

(setq item lower) ) 

(resource- limit 

(send-message-to-user 

(format nil "The value you entered (-a) for the number of~ 

-%Performances of -a would exceed the available ~%- 
amount of the resource (~A).-2%- 
The maximum possible value (-a) will be used." 
item name available resource-limit}) 

(setq item resource-limit))) 

(cond-every { (= item lower) 

(setq font ' (:fix litalic inormal))} 

( (= item upper) 

(setq font '(ifix ibold inormal)))) 

(setq * currently -used* {+ *curront ly-usod* {* (- item performances) duration power-required) } ) 

(list font item state))) 

(defun rsvisw-possible-incroasas () 

(let ( (Frontier-node t) ) 

(loop for each in * experiments* 
do 

(cond ( (no-possible-increase (eval each) ) 

(highlight-object (eval each)}) 

( (highlighted (eval each) ) 

(remove-existing-highlight (eval each) ) 

(setq Frontier-node Nil)) 

{ (not-maximized (eval each) ) 

(remove-existing-highlight (eval each)) 

(setq Frontier-node Nil)))) 

Frontier-node) ) 

(defmethod (not -maximized activity) () 

(> maximum-performances performances) ) 

(defmethod (no-possible-increase activity) {) 

{> (* duration power-required) 

(- *max- re source -a re a* *currently-used*) ) ) 

(defmethod (remove-exi sting-highlight activity) () 

(let ((box (dw: ipresentat i on-di spl ayed-box presentation)) 

(original-position (multiple-value-bind (a b) 

(send *interface-window* : read-cursorpos) 

(list a b) ) ) 

(font ' (ifix : roman inormal))) 

(setq highlighted nil) 

(cond ( (= performances maximum-performances) 

(setq font ' (ifix ibold inormal))) 

( performances minimum-performances) 
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(setq font ' {:fix :italic rnormal)))) 

(graphics :draw-rectangle (dw :: box-left box) {dw::box-top box) 

(dw :: box-right box) (dw :: box-bottom box) 

: stream *int©rf ace-window* : opaque t :alu : erase) 

(send *int©rf ac®-window* : set-cursorpos (dw : :box-left box) (dw:: box-top box)) 

(format *Int©rfac©-window* M -vGa-'^> font performances) 

(send *int©rfac©-window* : set-cursorpos (car original-position) (cadr original -posit ion) )) ) 

(defmethod (highlight-object activity) () 

(let ((box (dw: : present at ion-displayed-box presentation))) 

(setq highlighted t) 

(graphics : draw-rect angle (dw : : box-le f t box) (dw::box-top box) 

(dw :: box-right box) (dw :: box-bottom box) 

: stream * interface-window* : opaque nil :gray-level .15))) 


(defun clearspace (stream) 

(loop repeat 8 
do 

(send stream :clear-char) 

(send stream : forward-char) ) ) 

; ; This function roturns tho list of data files that can be selected. 

{defun get-data-file-list {) 

(loop for directory in (cdr { fs : di rectory-1 i st *Resourc©-File-Directory* )) 

as pathname = (cond {(not (string= (send (car directory) :name) "err")) 

(format nil "-A" (send (car directory) : st r ing-f or-di red) ) ) ) 

collect pathname ) ) 

;;This function allows communication between the user and the program, 

(defun send-message-to-user (message) 

(send *messag©-window* : clear-history ) 

(send *m©s sage-window* : set-cursor-visibi li ty nil) 

(send *m© 9 sage-window* : select) 

(format *m©9sage-window* message) 

(send *m© 3 sag©-window* :any-tyi) 

(send *m© s sag© -window* : deselect)) 

(defun subgroup-list (1st group-sizes) 

(let* ((group-size (if (>= group-sizes l)(zl:fix group-sizes) (length 1st))) 

(len (length 1st)) 

(repeats (/ len group-size) ) ) 

(loop repeat (zl:fix (if (not {= (mod len group-si 2 e) 0)) 

(+ 1 repeats) repeats)) 
as start first 0 then (+ start group-size) 
as finish first group-size then {+ finish group-size) 
collect (if {> finish len) 

(subseq 1st start) 

(subseq 1st start finish))))) 

; ; This function roads in a valuo, but does not issue a line-feed. 

(defun r©ad-without-roturn (& optional (stream *standard-output * ) 

&key (activation-characters ' (#\Return #\End ))) 

(loop with cursor-position = (list (multiple-value-bind (a b) 

(send stream : read-cur sorpos) (list a b) ) ) 

with var2 - nil 
with position = 0 
as varl = (send stream :tyi) 
as total-length = (length var2) 
until (member varl act ivat ion-characters) 
if varl 
do 

(cond ({and (equal varl #\rubout) var2) 

(send stream :tyo #\backspace) 

(send stream :clear-char) 

(setq var2 (cdr var2) 

position (1- position) 

cursor-position (cdr cursor-position) ) ) 

({and (or (equal varl #\c-B) (equal varl # \backspace) ) var2) 

(setq position (1- position) ) 

(send stream : tyo varl)} 

{ (equal varl #\c-F) 

(cond ( {< position total -length) 

(setq position {1+ position)) 

(send stream : tyo varl)))) 

( (= position total -length) 
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( setq var2 (cons varl var2) 
position (1+ position) 

cursor-position (cons (mult ipie-value-bind (a b) 

(send stream : read-cursorpos ) 

(list a b) ) cursor-position)) 

(format stream varl)) 

((or (equal varl #\c-B) (equal varl #\rubout ))) 

(t (send stream : insert -char ) 

(format stream "~A" varl) 

(setq var2 (reverse (loop for temp = nil 

then (append temp (list (car end))) 
for end ~ (reverse var2) then (cdr end) 
repeat position 
finally (return 

(append temp (cons varl end) ))))))) 
finally (return (cond (var2 (setq var2 ( read- from- st ri nq 

(apply #' st ring-append (reverse var2) ))))))) ) 


; ; This function allows the data values to be changed. 

(defun change -data -point () 

(cond ((and *Not-Previously-Not if ied* (review-possible-increases)) 

(send-message-to-user (format nil "~%The current selection represents a Frontier Node.~2%~ 

No possible performance INCREASES exist.")) 

(setq *Not-Previously-Notif ied* nil) 

' Not i f ied) 


(let {(data (catch 'resource (accept ' resource-type 

: prompt nil 

: stream *interf ace-window* ) ) ) 
(original-position (multiple-value-bind (a b) 

(send *interf ace-window* : read-cu rsorpos ) 
(list a b) ) ) 

(position) ) 

(setq *Not-Previously-Notif ied* t) 

(cond ( (or (atom data) (atom (car data) ) ) 
data ) 

(t 


(setq position (cadar data) ) 

(send *interf ace-window* :erase-displayed-presentation (cadr data)) 
(send *interf ace-window* : set -cursorpos (car position) (cadr position)) 
(send *interf ace-window* : set -cursor-vi sibi lity :blink) 

( format -it em-mouse- sens i t ive *int erf ace -window* 

(read-without-return * interface -window* ) 
(ca r dat a ) ) 

(send *interf ace-window* : set-cursor-visibility nil) 

(send *interf ace-window* : set -cu rsorpos (car original-position) 

(cadr original-position)) 

' data) ) ) ) ) ) 


(defun frontier-interface () 

(if (null-string *current-file* ) 

(open-input-file) ) 

(loop with again = t 
while again 
do 

(send *interf ace-window* : select) 

(send *interf ace-window* : clear-hi story ) 

(format *interface-window* " ~50t "vCront ier Development Interface~2>2%" f (:Fix :bold :normal) ) 
(make-window- layout ) 

(send *interf ace-window* : set -cursor-vi sibi 1 i ty nil) 

(monitor-usage) 

(loop with finished = nil 
until finished 

as choice = (change-data-point ) 
while choice 
do 

(monitor-usage) ) ) ) 

(defun monitor-usage {} 

(send *interf ace-window* : set -cursorpo s 550 670) 

(send *interf ace-window* : clear-rest-of-1 ine) 

(format *interf ace-window* ”-5,2f% Available (-a Remaining ~a Used)" 

( * 100.0 (/ (- *max- re source-area* *current ly-used* ) *max- re source -a re a* ) ) 

(float (- *max-resource-area* * currently-used* ) ) (float * currently-used* ) ) ) 


(defun null-string (str) 
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(= (length str) 0) ) 

(defun op*n-input-file () 

(let ((infile (dw: menu-choose (get-data-f ile-list > 

:prompt "Data File List"))) 

(cond (infile (load (string-append *Rosource-File-Diractory* infile) 
:verbose nil) 

(set -up-objects) 

(setq *current-fila* infile))))) 


(defun best {) 

(loop for each in *experiments* 
as eac = (eval each) 
do 

(format t " -%~a~l 4 t ~a~20t -a-30t ~a~45t-a~60t -A" 

each (performances eac) (minimum-performances eac) (maximum-performances eac) 
{* (power-required eac) (duration eac)) (no-possible-increase eac)))) 
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Syntax: Common-Lisp; Package: USER; Base: 10; Mode: LISP -*- 

(defvar *resource-allocation-graphics-window* 

(tv : make-window * dw : dynamic-window) ) 

(defvar *obj«cts* nil) 

(defflavor activities 
(Value 

Horizontal-location 
vert ical-locat ion 
Maximum 
Minimum) 

0 

: ini table-instance-vari ables 
: readable-instance-variables 
: writable -in stance -variables) 

(defvar *hori zontal -limit * 600) 

(defvar *vertical-of f set* 75) 

(defvar *horizontal-of f set* 100) 

(defvar *scale-x* 3) 

(defmethod (draw-object-mouse-left activities) (xref) 

(let { (x (+ xref *horizontal-of f set*) ) ) 

(graphics : draw-string (format nil "~a M value) {+ Horizontal-location 10) vert i cal -locat ion 
: stream *resource-allocat ion-graphics-window* :alu : erase 
: attachment -y :top : character- style ' (:fix : roman : very-smal 1 ) ) 
(graphics : draw-rect angle x vertical-location Horizontal-location (+ 5 vert ical -locat ion) 

: stream *resource-allocation-graphics-window* :alu :flip) 

(setq Horizontal-location x 

Value ( calc-new- value Hori zontal -locat ion ) ) 

(graphics : draw-st ring (format nil M -a" value) ( + Hori zontal -locat ion 10) vertical-location 
: stream *resource-allocation-graphics-window* 

: att achment -y :top : character-style * (:fix : roman : very-sma 1 1 ) ) ) ) 


(de fun calc-new-value (x) 

(/ (- x *horizontal-of f set* ) *scale-x*)) 

(defmethod (check-object activities) (y) 

(<= vertical-location y {+ 5 vertical-location))) 

(defun create-initial-ob jects (num) 

(loop repeat num 

for name in ' (anfghj ertyuil yupoliu ewyrue ttyyss gsgsgsg iweie83k ieieiokk jf jf jfkl qwernm) 
counting t into down 

as vert = (+ (* down 10) *vertical-of f set*) 

as val - (random 200) 

as hori = (zlifix (+ *horizontal-of fset* (* (/ val 200) *horizontal-limi t * ) ) ) 
collect (make-instance 'activities 

: vert i cal -1 ocat i on vert 
: Horizontal-locat ion hori 
:Value val 

:Maximum (zl:fix (+ val (* .5 (- 200 val)))) 

:Minimum (zl:fix (* .5 val))) into vars 
finally (setq *objects* vars) 
do 

(graphics : draw-string (format nil "-a" name) (- *offset* 10) vert : stream *resource-allocat ion-graphi 
ca -window* 

: att achment -y :top : att achment -x : right : character-sty le ' (:fix : roman :very-sm 

all) ) 

(graphics : draw-rectangle *horizontal-of f set * vert Hori (+ 5 vert) : stream *resource-al locat ion-grapbi 
cs -window*) 

(graphics :draw-st ring (format nil "-a" val) (+ 10 Hori) vert : stream *resource-allocation-graphics-wi 
ndow* 

: att achment-y :top : character-style '{:fix : roman : very-smal 1 ))) ) 

(defun top-level-ii (fioptional (num 10)) 

(send *resource-allocation-graphics-window* : select) 

(send *r«source-allocation-graphics-window* : clea r-hi story ) 

(create-initial-ob jects num) 

(dw : with -output -recording-di sab led (*r« source -all ocat ion -graphics -window* ) 

(loop with previous = nil 
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do 

(dw: tracking-mouse (*re*ource-allocation-graphics-window* 

: who-line-documentat ion-st ring 
"Revise allocation of item'*} 

<: mouse-motion-bold (x y) 

(let ( (xloc (* (truncate (- x *horizontal-of f set*) *scale-x*) *scale-x*) ) ) 
(if (and previous 

(validate-ob ject-maximum previous xloc) ) 

(draw-ob ject -mouse-le f t previous xloc) ) ) ) 

( : mouse-click (button x y) 

(if (equal button #\mouse-l) 

(loop for each in *objects* 

when (check-ob ject each y) 
do 

(setq previous each)})) 

(: release-mouse () 

(setq previous nil)))))) 

(de f method (validate-ob ject-maximum activities) (mouse-position) 

(<= minimum (/ mouse-position *«cale-x*) maximum)) 
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